(defun OUTPUT (from to)
	(print from " -> " to "\n"))
(defun TRANSFER (from to aux N)
	(if (= N 1)
		(OUTPUT from to)
		(progn
			(TRANSFER from aux to (- N 1))
			(OUTPUT from to)
			(TRANSFER aux to from (- N 1)))))
(defun HANOI-TOWERS (height)
	(TRANSFER "A" "B" "C" height))
(HANOI-TOWERS (promt "Enter height"))
